(set-logic ALL)
(set-info :status sat)
(declare-fun A () (Set Int))
(declare-fun B () (Set Int))
(declare-fun x () Int)
(declare-fun y () Int)
(declare-fun p (Int) Bool)
(assert (= A (set.union (set.singleton x) (set.singleton y))))
(assert (= B (set.filter p A)))
(assert (distinct (p x) (p y)))
(check-sat)
